home *** CD-ROM | disk | FTP | other *** search
/ CICA 1993 April / CICA MS Windows - April 1993.iso / unzipped / programr / catch / run.wbf < prev   
Text File  |  1993-03-03  |  451b  |  24 lines
  1. ;Example Catch file
  2. ;Copyright Sean Batten
  3.  
  4.  
  5. let dir=GetWindir()
  6. let dir=join(dir,"\*.exe")
  7. Let program=fileselect(dir)
  8. Let params=""
  9.  
  10. ;Make sure something was selected
  11. if program=="" goto abort
  12.  
  13. ;Now find out if they want to specify parameters
  14. ask ("Parameters", "Do you wish to specify parameters???")
  15. if @YES let params=input ("","Enter parameters")
  16.  
  17. run (program,params)
  18. goto end
  19.  
  20. :abort
  21. ok ("","No program selected")
  22.  
  23. :end
  24.